home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Yerk 3.6.7 / yerk 367 / System source / BasicStr < prev    next >
Text File  |  1994-06-03  |  2KB  |  36 lines
  1.  self  min put: offset  ;M
  2.  
  3.     \ ( offs -- ) relative offset
  4.     :M  OFFSET: get: offset + moveto: self ;M
  5.  
  6.     \ ( -- addr len )  return the entire string
  7.     :M  GET:  ptr: self size: self  ;M
  8.  
  9.     \ ( -- addr len )  map string to upper case and get it
  10.     :M  UC:  get: self over +base over >uc   ;M
  11.  
  12.     \ ( addr len -- )  replace entire string with replacement string
  13.     :M  PUT: { addr len -- }   clear: offset
  14.         0 -1 addr len replace: self   ;M
  15.  
  16.     :M  INSERT:  { addr len -- }  addr 0 addr len  replace: self  ;M
  17.  
  18.     :M  ADD: { addr len -- }  size: self moveto: self
  19.         addr len  insert: self ;M
  20.  
  21.     \ ( char -- )  append a char to end of string
  22.     :M  +:  pad c! pad 1 add: self  ;M
  23.  
  24.     \ ( -- chr t OR f)  return char at offset and advance - false if at end
  25.     :M  NEXT:  get: offset size: self <
  26.         IF  get: offset ptr: self + c@ true 1 +: offset
  27.         ELSE  false
  28.         THEN   ;M
  29.  
  30.     \ ( -- )
  31.     :M  PRINT:  getState: self lock: self get:  self type setState: self ;M
  32.  
  33. ;CLASS
  34.  
  35. <" String
  36.